home *** CD-ROM | disk | FTP | other *** search
/ PC World 2007 January / PCWorld_2007-01_cd.bin / v cisle / autoit / autoit-v3.2.0.1-setup.exe / Examples / GUI / Simple / msgbox_onevent.au3 < prev   
Text File  |  2006-06-20  |  924b  |  43 lines
  1. ; A simple custom messagebox that uses the OnEvent mode
  2.  
  3. #include <GUIConstants.au3>
  4.  
  5. Opt("GUIOnEventMode",1)
  6.  
  7. GUICreate("Custom Msgbox", 210, 80)
  8.  
  9. $Label = GUICtrlCreateLabel("Please click a button!", 10, 10)
  10. $YesID  = GUICtrlCreateButton("Yes", 10, 50, 50, 20)
  11. GUICtrlSetOnEvent($YesID,"OnYes")
  12. $NoID   = GUICtrlCreateButton("No", 80, 50, 50, 20)
  13. GUICtrlSetOnEvent($NoID,"OnNo")
  14. $ExitID = GUICtrlCreateButton("Exit", 150, 50, 50, 20)
  15. GUICtrlSetOnEvent($ExitID,"OnExit")
  16.  
  17. GUISetOnEvent($GUI_EVENT_CLOSE,"OnExit")
  18.  
  19. GUISetState()  ; display the GUI
  20.  
  21. While 1
  22.    Sleep (1000)
  23. WEnd
  24.  
  25. ;--------------- Functions ---------------
  26. Func OnYes()
  27.     MsgBox(0,"You clicked on", "Yes")
  28. EndFunc
  29.  
  30. Func OnNo()
  31.     MsgBox(0,"You clicked on", "No")
  32. EndFunc
  33.  
  34. Func OnExit()
  35.     if @GUI_CtrlId = $ExitId Then
  36.         MsgBox(0,"You clicked on", "Exit")
  37.     Else
  38.         MsgBox(0,"You clicked on", "Close")
  39.     EndIf
  40.  
  41.     Exit
  42. EndFunc
  43.